home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / text1 / wsuipa / iromanp.mf < prev    next >
Text File  |  1991-10-23  |  6KB  |  151 lines
  1. % This is IROMANP.MF in text format, as of Jan. 13, 1988.
  2. % This file contains `\$' and `\&' and `?' in the so-called roman style.
  3.  
  4. % Codes \0044, \0046, and \0077 are generated, as well as code |spanish_query|
  5. % (for a Spanish question mark) if that code value is known.
  6.  
  7. cmchar "superscript Glottal Stop";
  8. beginchar(oct"145",8.5u#,asc_height#-desc_depth#,desc_depth#);
  9. italcorr .8asc_height#*slant;
  10. adjust_fit(0,0);
  11. pos7(dot_size,0); pos8(dot_size,90);
  12. lft x7l=hround(.45w-.25u-.5dot_size); bot y8l=0; z7=z8;  % dot
  13. numeric bot_width;
  14. bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: stem fi;
  15. pickup fine.nib; pos2(vair,90); pos3(stem,0);
  16. pos4(.75curve,-90); pos5(bot_width,0); pos6(bot_width,0);
  17. pos14(bot_width,0); z4l=z14;
  18. x2=x7; rt x3r=hround(w-u); bot y6=1+oo;
  19. x4=x5=x6=.75[0,x2];
  20. top y2r=h+oo; y3=.75[y6,y2]; y4=.45[y6,y2]; y5=.1[y6,y2];
  21. {{interim superness:=more_super;
  22. filldraw stroke pulled_super_arc.e(2,3)(superpull)
  23. &pulled_super_arc.e(3,4)(superpull)\\}};
  24. filldraw stroke z14e--- z5e---z6e;  % arc and stem
  25. if serifs: pos1(hair,180); pos0(flare,180);
  26.  lft x1r=hround u; y1=.85[y6,y2];
  27.  bulb(2,1,0);  % bulb
  28. else: pos1(Vround 5/7[vair,flare],110);
  29.  lft x1r=hround u; top y1r=vround .9[y6,top y2r];
  30.  filldraw stroke term.e(2,1,left,1,4); fi  % terminal
  31. penlabels(0,1,2,3,4,5,6); endchar;
  32.  
  33. cmchar "Glottal Stop";
  34. beginchar(oct"142",8.5u#,asc_height#,0);
  35. italcorr .8asc_height#*slant;
  36. adjust_fit(0,0);
  37. pos7(dot_size,0); pos8(dot_size,90);
  38. lft x7l=hround(.45w-.25u-.5dot_size); bot y8l=0; z7=z8;  % dot
  39. numeric bot_width;
  40. bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: stem fi;
  41. pickup fine.nib; pos2(vair,90); pos3(stem,0);
  42. pos4(.75curve,-90); pos5(bot_width,0); pos6(bot_width,0);
  43. pos14(bot_width,0); z4l=z14;
  44. x2=x7; rt x3r=hround(w-u); bot y6=oo;
  45. x4=x5=x6=1.05[0,x2];
  46. top y2r=h+oo; y3=.75[y6,y2]; y4=.5[y6,y2]; y5=.1[y6,y2];
  47. {{interim superness:=more_super;
  48. filldraw stroke pulled_super_arc.e(2,3)(superpull)
  49. &pulled_super_arc.e(3,4)(superpull)\\}};
  50. filldraw stroke z14e--- z5e---z6e;  % arc and stem
  51. if serifs: pos1(hair,180); pos0(flare,180);
  52.  lft x1r=hround .5u; y1=.85[y6,y2];
  53.  bulb(2,1,0);  % bulb
  54.  dish_serif(6,5,c,1/3,.8cap_jut,b,1/3,.8cap_jut);   %lower serif
  55. else: pos1(Vround 5/7[vair,flare],110);
  56.  lft x1r=hround u; top y1r=vround .9[y6,top y2r];
  57.  filldraw stroke term.e(2,1,left,1,4); fi  % terminal
  58. penlabels(0,1,2,3,4,5,6); endchar;
  59.  
  60. cmchar "Reversed Glottal Stop";
  61. beginchar(oct"143",8.5u#,asc_height#,0);
  62. italcorr .8asc_height#*slant;
  63. adjust_fit(0,0);
  64. pos7(dot_size,0); pos8(dot_size,90);
  65. lft x7l=hround(.55w+.25u+.5dot_size); bot y8l=0; z7=z8;  % dot
  66. numeric bot_width;
  67. bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: stem fi;
  68. pickup fine.nib; pos2(vair,90); pos3(stem,180);
  69. pos4(.75curve,-90); pos5(bot_width,0); pos6(bot_width,0);
  70. pos14(bot_width,0); z4l=z14;
  71. x2=x7; rt x3r=hround(1.5u); bot y6=oo;
  72. x4=x5=x6=.9x2;
  73. top y2r=h+oo; y3=.75[y6,y2]; y4=.5[y6,y2]; y5=.1[y6,y2];
  74. {{interim superness:=more_super;
  75. filldraw stroke pulled_super_arc.e(2,3)(superpull)
  76. &pulled_super_arc.e(3,4)(superpull)\\}};
  77. filldraw stroke z14e--- z5e---z6e;  % arc and stem
  78. if serifs: pos1(hair,0); pos0(flare,0);
  79.  lft x1r=hround w-.5u; y1=.85[y6,y2];
  80.  bulb(2,1,0);  % bulb
  81.  dish_serif(6,5,c,1/3,.8cap_jut,b,1/3,.8cap_jut);   %lower serif
  82. else: pos1(Vround 5/7[vair,flare],110);
  83.  lft x1r=hround u; top y1r=vround .9[y6,top y2r];
  84.  filldraw stroke term.e(2,1,left,1,4); fi  % terminal
  85. penlabels(0,1,2,3,4,5,6); endchar;
  86.  
  87. cmchar "Inverted Glottal Stop";
  88. beginchar(oct"144",8.5u#,asc_height#,0);
  89. italcorr .8asc_height#*slant;
  90. adjust_fit(0,0);
  91. pos7(dot_size,0); pos8(dot_size,90);
  92. lft x7l=hround(.55w+.25u+.5dot_size); bot y8l=0; z7=z8;  % dot
  93. numeric bot_width;
  94. bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: stem fi;
  95. pickup fine.nib; pos2(vair,90); pos3(stem,180);
  96. pos4(.75curve,-90); pos5(bot_width,0); pos6(bot_width,0);
  97. pos14(bot_width,0); z4l=z14;
  98. x2=x7; rt x3r=hround(1.5u); bot y6=.1h;
  99. x4=x5=x6=.85x2;
  100. top y2r=h+oo; y3=.75[y6,y2]; y4=.5[y6,y2]; y5=.1[y6,y2];
  101. {{interim superness:=more_super;
  102. filldraw stroke pulled_super_arc.e(2,3)(superpull)
  103. &pulled_super_arc.e(3,4)(superpull)\\}};
  104.  
  105. filldraw stroke z14e--- z5e---z6e;  % arc and stem
  106. if serifs: pos1(hair,0); pos0(flare,0);
  107.  lft x1r=hround w-.5u; y1=.85[y6,y2];
  108.  bulb(2,1,0);  % bulb
  109. else: pos1(Vround 5/7[vair,flare],110);
  110.  lft x1r=hround u; top y1r=vround .9[y6,top y2r];
  111.  filldraw stroke term.e(2,1,left,1,4); fi  % terminal
  112. picture rvchar;
  113. if slant=0: rvchar=currentpicture rotatedabout((.5w,.5h),180);%
  114.   else: rvchar=currentpicture rotatedabout((.58w,.5h),180);fi
  115. currentpicture:= rvchar;
  116. penlabels(0,1,2,3,4,5,6); endchar;
  117.  
  118. cmchar "superscript reversed Glottal Stop";
  119. beginchar(oct"146",8.5u#,asc_height#-desc_depth#,desc_depth#);
  120. italcorr .8asc_height#*slant;
  121. adjust_fit(0,0);
  122. pos7(dot_size,180); pos8(dot_size,90);
  123. rt x7r=hround(.5w+.25u+.5dot_size); bot y8l=0; z7=z8;  % dot
  124. numeric bot_width;
  125. bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: stem fi;
  126. pickup fine.nib; pos2(vair,90); pos3(stem,180);
  127. pos4(.75curve,-90); pos5(bot_width,0); pos6(bot_width,0);
  128. pos14(bot_width,0); z4l=z14;
  129. x2=x7; rt x3r=hround(1.5u); bot y6=1+oo;
  130. x4=x5=x6=.88x2;
  131. top y2r=h+oo; y3=.75[y6,y2]; y4=.45[y6,y2]; y5=.1[y6,y2];
  132. {{interim superness:=more_super;
  133. filldraw stroke pulled_super_arc.e(2,3)(superpull)
  134. &pulled_super_arc.e(3,4)(superpull)\\}};
  135. filldraw stroke z14e--- z5e---z6e;  % arc and stem
  136. if serifs: pos1(hair,0); pos0(flare,0);
  137.  lft x1r=hround w-u; y1=.85[y6,y2];
  138.  bulb(2,1,0);  % bulb
  139. else: pos1(Vround 5/7[vair,flare],110);
  140.  lft x1r=hround u; top y1r=vround .9[y6,top y2r];
  141.  filldraw stroke term.e(2,1,left,1,4); fi  % terminal
  142. penlabels(0,1,2,3,4,5,6); endchar;
  143.  
  144. cmchar "Click  ";
  145. beginchar(oct"073",18u#,asc_height#,desc_depth#); autorounded;
  146. adjust_fit(if monospace:-3u#,-3u# else: 0,0 fi); pickup light_rule.nib;
  147. lft x6=hround u; x2=w-x6; top y8=h+o; bot y4=-d-o;
  148. circle_points; draw_circle;  % circle
  149. fill fullcircle scaled(dot_size+eps) shifted(.5[z4,z8]);  % dot
  150. labels(1,2,3,4,5,6,7,8); endchar;
  151.